home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / ahdw / ahd.smm next >
INI File  |  1993-05-20  |  5KB  |  304 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP DeskJet Family
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     
  19.     
  20.     
  21.     
  22.     
  23.     737949089
  24.     35
  25.     672763988
  26.     350
  27.     4
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     4
  57.     19 0 6 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58.     55 0 24 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  59.     66 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  60.     66 0 5 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  61. [edoc]
  62. <:#312,9360>The first macro, AHD1, installs AHD macros in the Tools Menu.
  63.  
  64. <:#312,9360>
  65.  
  66. <:#312,9360>The second macro, AHD, gets installed  in the Tools / American Heritage menu item.
  67.  
  68. <:#312,9360>
  69.  
  70. <:#936,9360>This macro should be installed under Tools/User  Setup as the macro to run at program load, or should be called from the current autoload macro.  Instalah.smm will do this for you.
  71.  
  72. <:#312,9360>
  73.  
  74. <:#312,9360>
  75.  
  76. <:#312,9360>FUNCTION AHD1()
  77.  
  78. <:#312,9360>
  79.  
  80. <:#312,9360>M1 = GetRunningMacroFile$()
  81.  
  82. <:#312,9360>M1 = strcat$ (M1, "!AHD")
  83.  
  84. <:#312,9360>
  85.  
  86. <:#312,9360>DeleteMenuItem (1, "Too&ls", "American &Heritage")
  87.  
  88. <:#312,9360>AddMenuItem (1, "Too&ls", "American &Heritage", M1 )
  89.  
  90. <:#312,9360>ShowBar (1)
  91.  
  92. <:#312,9360>
  93.  
  94. <:#312,9360>END FUNCTION
  95.  
  96. <:#312,9360>
  97.  
  98. <**><:p<* >>
  99.  
  100. <:#312,9360>FUNCTION AHD()
  101.  
  102. <:#312,9360>
  103.  
  104. <:#312,9360>AHDir = GetProfileString$("Program", "Path", "ahd3.ini")
  105.  
  106. <:#312,9360>IF (LEN(AHDir) = 0)
  107.  
  108.     Message("Can't find The American Heritage Dictionary.  Path not found in AHD3.INI.")
  109.  
  110. <:#312,9360>    EXIT FUNCTION
  111.  
  112. <:#312,9360>ENDIF
  113.  
  114. <:#312,9360>IF (Right$(AHDir, 1) <<<;> "\")
  115.  
  116. <:#312,9360>    AHDir = strcat$ (AHDir, "\")
  117.  
  118. <:#312,9360>ENDIF
  119.  
  120. <:#312,9360>AHExe = strcat$ (AHDir, "ahd3.exe")
  121.  
  122. <:#312,9360>
  123.  
  124. <:#312,9360>hFindWindow = DLLLoadLib("user", "FindWindow", "HCC")
  125.  
  126. <:#312,9360>hWnd = DLLCall(hFindWindow, 0, "The American Heritage Dictionary") 
  127.  
  128. <:#312,9360>IF (hWnd = 0)
  129.  
  130. <:#312,9360>    hWinExec = DLLLoadLib("kernel", "WinExec", "HCH")
  131.  
  132. <:#312,9360>    hAHD = DLLCall(hWinExec, AHExe, 1)
  133.  
  134. <:#312,9360>    DLLFreeLib(hWinExec)
  135.  
  136. <:#312,9360>    IF (hAHD << 32)
  137.  
  138. <:#312,9360>        GOTO LoadErr
  139.  
  140. <:#312,9360>    ENDIF
  141.  
  142. <:#312,9360>    hWnd = DLLCall(hFindWindow, 0, "The American Heritage Dictionary") 
  143.  
  144. <:#312,9360>ENDIF
  145.  
  146. <:#312,9360>DLLFreeLib(hFindWindow)
  147.  
  148. <:#312,9360>IF (hWnd = 0)
  149.  
  150. <:#312,9360>LoadErr:
  151.  
  152. <:#312,9360>    IF FindFirst$(AHExe,0)
  153.  
  154. <:#312,9360>        Err = "load"
  155.  
  156. <:#312,9360>    ELSE
  157.  
  158. <:#312,9360>        Err = "find"
  159.  
  160. <:#312,9360>    ENDIF
  161.  
  162. <:#312,9360>    Message("Can't {Err} The American Heritage Dictionary.")
  163.  
  164. <:#312,9360>    EXIT FUNCTION
  165.  
  166. <:#312,9360>ENDIF
  167.  
  168. <:#312,9360>
  169.  
  170. 'Page down for more<:p<* >>
  171.  
  172. <:#312,9360>IF CurShade$()
  173.  
  174. <:#312,9360>    Copy
  175.  
  176. <:#312,9360>ENDIF
  177.  
  178. <:#312,9360>hSendMessage = DLLLoadLib("user", "SendMessage", "JHHHJ")
  179.  
  180. hGetFocus = DLLLoadLib("user", "GetFocus", "H")
  181.  
  182. hAmiWnd = DLLCall(hGetFocus)
  183.  
  184. DLLFreeLib(hGetFocus)
  185.  
  186. lResult = DLLCall(hSendMessage, hWnd, 273, 2026, hAmiWnd) 
  187.  
  188. <:#312,9360>DLLFreeLib(hSendMessage)
  189.  
  190. <:#312,9360>END FUNCTION
  191.  
  192. <:p<* >>
  193.  
  194. >
  195.  
  196. [Embedded]
  197. 00003361
  198. >
  199. [macsum] 2
  200. AHD1 0 0 2 7
  201. AHD 158 0 12 19
  202. [macse]
  203. 14 AHD1
  204. 0 802
  205. 13
  206. 8 1
  207. 0 16 "{1}" "!AHD"
  208. 13
  209. 8 1
  210. 0 520 1 "Too&ls" "American &Heritage"
  211. 0 516 1 "Too&ls" "American &Heritage" "{1}"
  212. 0 514 1
  213. 6 0
  214. 15
  215. 9
  216. 14 AHD
  217. 0 286 "Program" "Path" "ahd3.ini"
  218. 13
  219. 8 1
  220. 0 14 "{1}"
  221. 13
  222. 5 0
  223. 18 0
  224. 11 00000185
  225. 0 3 "Can't find The American Heritage Dictionary.  Path not found in AHD3.INI."
  226. 6 0
  227. 15
  228. 9
  229. 0 807 "{1}" 1
  230. 13
  231. 7 "\"
  232. 18 1
  233. 11 00000255
  234. 0 16 "{1}" "\"
  235. 13
  236. 8 1
  237. 0 16 "{1}" "ahd3.exe"
  238. 13
  239. 8 2
  240. 0 297 "user" "FindWindow" "HCC"
  241. 13
  242. 8 3
  243. 0 284 "{3}" 0 "The American Heritage Dictionary"
  244. 13
  245. 8 4
  246. 6 4
  247. 5 0
  248. 18 0
  249. 11 00000603
  250. 0 297 "kernel" "WinExec" "HCH"
  251. 13
  252. 8 5
  253. 0 284 "{5}" "{2}" 1
  254. 13
  255. 8 6
  256. 0 298 "{5}"
  257. 6 6
  258. 5 32
  259. 18 5
  260. 11 00000544
  261. 10 00000645
  262. 0 284 "{3}" 0 "The American Heritage Dictionary"
  263. 13
  264. 8 4
  265. 0 298 "{3}"
  266. 6 4
  267. 5 0
  268. 18 0
  269. 11 00000783
  270. 0 280 "{2}" 0
  271. 13
  272. 11 00000705
  273. 7 "load"
  274. 8 7
  275. 10 00000720
  276. 7 "find"
  277. 8 7
  278. 0 3 "Can't {7} The American Heritage Dictionary."
  279. 6 0
  280. 15
  281. 9
  282. 0 24
  283. 13
  284. 11 00000814
  285. 24 154
  286. 0 297 "user" "SendMessage" "JHHHJ"
  287. 13
  288. 8 8
  289. 0 297 "user" "GetFocus" "H"
  290. 13
  291. 8 9
  292. 0 284 "{9}"
  293. 13
  294. 8 10
  295. 0 298 "{9}"
  296. 0 284 "{8}" "{4}" 273 2026 "{10}"
  297. 13
  298. 8 11
  299. 0 298 "{8}"
  300. 6 0
  301. 15
  302. 9
  303. 00003386
  304.